home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / ISMONO.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-15  |  122b  |  9 lines

  1. PROGRAM IsMono;
  2.  
  3. {$I MONOTEST.SRC}  {See Section 18.4}
  4.  
  5. BEGIN
  6.   IF Monochrome THEN Halt(5)
  7.     ELSE Halt(0)
  8. END.
  9.